home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 60 / 060.d81 / walts workshop (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  85 lines
  1. 1 poke55,0:poke56,64:clr:a$=""
  2. 2 gosub1000:rem goto7
  3. 3 sys57812"unpacker",8,0:poke780,0:poke781,0:poke782,201:sys65493
  4. 4 sys57812"input any.o",8,0:poke780,0:poke781,60:poke782,3:sys65493
  5. 7 ip=828:un=51456:hg=51459
  6. 9 cl$="                                      "
  7. 12 dimg$(250)
  8. 27 p=1:pt=0:e=1
  9. 28 rem  goto100
  10. 30 open3,8,3,"t.work"
  11. 32 fori=0to1
  12. 35 sys828,3,40:h=h+1:i=st
  13. 37 g$(pt*19+h)=a$:ifh=19thenpt=pt+1:h=0
  14. 38 next:close3:pt=pt+1
  15. 100 poke53281,9:poke53280,9:print"[147]     [215][193][204][212]'[211] [215][207][210][203][211][200][207][208]"tab(31)"[150] of"pt
  16. 101 print"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  17. 102 fori=1to20:print"[221]"spc(38)"[221]";:next
  18. 103 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  19. 104 fori=217to242:pokei,peek(i)or128:next
  20. 105 poke214,22:print:print"[150]  ([206][150])ext  ([208][150])revious  ([198][150])irst  ([204][150])ast"
  21. 106 print"  (1[150]) through (8[150]) for picture  ([209][150])uit[158]"
  22. 108 print""tab(28)"   [157][157][157]"p"[158]"
  23. 110 forj=etoe+19
  24. 120 print""g$(j)
  25. 130 next
  26. 150 geta$:ifa$=""then150
  27. 160 ifa$>="1"anda$<="8"then200
  28. 165 ifa$=""ora$="n"thenifp<ptthenp=p+1:e=e+19:goto195
  29. 170 ifa$="[145]"ora$="p"thenifp>1thenp=p-1:e=e-19:goto195
  30. 175 ifa$="[157]"ora$="f"thene=1:p=1:goto195
  31. 180 ifa$=""ora$="l"thene=(pt-1)*19+1:p=pt:goto195
  32. 185 ifa$="q"then400
  33. 190 goto150
  34. 195 print"[145][145]":fork=1to20:printcl$"[145][145]":next:goto108
  35. 200 ifa$=d$then240
  36. 210 d$=a$
  37. 220 print:printcl$:printcl$"[145][145][145]"
  38. 230 sys57812a$+".shp",8,0:poke780,0:poke781,0:poke782,64:sys65493
  39. 240 poke249,224:poke250,204
  40. 250 poke251,0:poke252,64
  41. 260 poke253,0:poke254,0
  42. 270 print"[147]";:sysun:syshg:poke53280,0
  43. 280 poke198,0
  44. 290 geta$:ifa$=""then290
  45. 295 syshg:goto100
  46. 299 goto299
  47. 400 poke214,22:print:printcl$:printcl$"[145][145]"
  48. 405 print"        [209]uit[150] to [204][207][193][196][211][212][193][210]  (y[150]/n[150])"
  49. 410 geta$:ifa$<>"y"anda$<>"n"then410
  50. 420 ifa$="n"then105
  51. 430 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  52. 440 ifer%<>63thenprint"[147]":end
  53. 445 poke646,peek(53281)
  54. 450 print"[147]load"chr$(34)"hello connect"chr$(34)",8"
  55. 460 print"run"
  56. 470 poke631,13:poke632,13:poke198,2:end
  57. 1000 print"[147]":poke53281,0:poke53280,0
  58. 1010 print"            [159][204][207][193][196][211][212][193][210] [154]presents"
  59. 1020 print"  [150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  60. 1030 print"  {$7d}[176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174][146]{$7d}"
  61. 1040 print"  {$7d}{$7d}[146][176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]{$7d}[146]{$7d}"
  62. 1050 print"  [221][221][146][221] [155][215] [193] [204] [212]' [211]   [215] [207] [210] [203] [211] [200] [207] [208] [150][221][221][146][221]"
  63. 1060 print"  {$7d}{$7d}[146]{$7d}                              {$7d}{$7d}[146]{$7d}"
  64. 1070 print"  [221][221][146][221] [152]- [193] [212]utorial and [211]lideshow - [150][221][221][146][221]"
  65. 1080 print"  [221][221][146][221]      [158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]     [150][221][221][146][221]"
  66. 1090 print"  [221][221][146][221][158][171][192][192][192][192][192][189] [159]by  [215]alt [200]arned [158][173][192][192][192][192][179][150][221][221][146][221]"
  67. 1100 print"  {$7d}{$7d}[146][173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]{$7d}[146]{$7d}"
  68. 1110 print"  {$7d}[173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189][146]{$7d}"
  69. 1120 print"  [173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]"
  70. 1130 print"[154]   [212]his will just take a few seconds."
  71. 61000 poke214,15:print""
  72. 61110 print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  73. 61120 print"  [152]                                    "
  74. 61130 print"                                      "
  75. 61140 print"                                      "
  76. 61150 print"        [208]ublished on [204][207][193][196][211][212][193][210] #60     "
  77. 61160 print"      [211]ubscriptions 1-800-831-2694    "
  78. 61170 print"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
  79. 61180 print"                                      "
  80. 61190 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  81. 61200 au$="[215]alt's [215]orkshop":poke214,17:print:printspc(20-len(au$)/2)"[152]"au$
  82. 61210 au$="by [215]alt [200]arned  ([195]) 1989":poke214,18:print
  83. 61220 printspc(20-len(au$)/2)"[152]"au$""
  84. 61230 return
  85.